;;;Update hiding images to match edits to pipe linework
;;;Used with pipes created by ParaPIPE
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(DEFUN C:UDPIPE ( / pfit_ss)
  (SETQ pfit_ss (SSGET))
  (IF pfit_ss
    (PROGN
      (SETQ pfit_sslen (SSLENGTH pfit_ss)
	    pfit_cnt 0
      )
      (WHILE (< pfit_cnt pfit_sslen)
	(SETQ part_edef (ENTGET (SSNAME pfit_ss pfit_cnt))
	      part_type (CDR (ASSOC 0 part_edef))
	)
	(IF (EQ part_type "LINE")
	  (SETQ part_dist (DISTANCE (CDR (ASSOC 10 part_edef))(CDR (ASSOC 11 part_edef))))
	)
	(IF (AND(EQ part_type "INSERT")(EQ (STRCASE(CDR (ASSOC 2 part_edef))) "PARA-HDBOX"))
	  (SETQ part_box part_edef)
	)
	(SETQ pfit_cnt (1+ pfit_cnt))
      )
      (IF (AND part_dist part_box)
	(PROGN
	  (SETQ part_box (SUBST (CONS 41 part_dist)(ASSOC 41 part_box)part_box))
	  (ENTMOD part_box)
	)
      )
    )
  )
  (PRINC)
)